unit uCadEspecialidades;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uCadPadrao, DB, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask;

type
  TfrmCadEspecialidades = class(TfrmCadPadrao)
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBText1: TDBText;
  private
    { Private declarations }
  public
    procedure Localizar; override;
    const
      Tabela = 'Especialidades';
      CampoCod = 'IdEspecialidade';
      CampoDesc = 'NomeEspecialidade';
      NomeDesc = 'Nome da Especialidade';
  end;

var
  frmCadEspecialidades: TfrmCadEspecialidades;

implementation

uses uConsPadrao, uDMCad;

{$R *.dfm}

{ TfrmCadEspecialidades }

procedure TfrmCadEspecialidades.Localizar;
begin
  Application.CreateForm(TfrmConsPadrao, frmConsPadrao);
  frmConsPadrao.SetParametros(Tabela, CampoCod, CampoDesc, CampoDesc);
  inherited;
end;

end.
